home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / macf / mger.dir / 00233.ls < prev    next >
Encoding:
Text File  |  1995-10-10  |  755 b   |  34 lines
  1. on mouseUp
  2.   global Clips, fullscreenG
  3.   put "inside 233,"
  4.   put "fullscreenG", fullscreenG
  5.   if fullscreenG = 1 then
  6.     puppetSprite(48, 1)
  7.     set the visible of sprite 48 to 0
  8.     puppetSprite(48, 0)
  9.     setbarB()
  10.     updateStage()
  11.     ChangeScreenSize(Clips, "160,140", 1)
  12.     repeat with x = 9 to 18
  13.       puppetSprite(x, 1)
  14.       set the visible of sprite x to 1
  15.       puppetSprite(x, 0)
  16.     end repeat
  17.     puppetSprite(20, 1)
  18.     set the visible of sprite 20 to 1
  19.     puppetSprite(20, 0)
  20.     puppetSprite(46, 1)
  21.     set the visible of sprite 46 to 1
  22.     puppetSprite(46, 0)
  23.     updateStage()
  24.     set fullscreenG to 0
  25.   end if
  26.   updateStage()
  27. end
  28.  
  29. on exitFrame
  30.   global movieID, fullscreenG
  31.   updateStage()
  32.   QTMovie("Direct", movieID, "Idle")
  33. end
  34.